home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / BLUEMENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  8.1 KB  |  187 lines
  1. 2  LOCATE,,,0,7
  2. 10  REM ******************  BLUEMENU.BAS PROGRAM **************************
  3. 15  CLS:CLEAR :SCREEN 0,0,0: WIDTH 80:COLOR 7,0:FOR I=1 TO 10:KEY I,"":NEXT
  4. 20  DIM AA$(100),N(100):KEY OFF
  5. 25  KEY 2,CHR$(64):KEY 6,CHR$(35):KEY 10,"GOTO 65000"+CHR$(13)
  6. 30  LOCATE 3,1:PRINT CHR$(1);STRING$(78,1);CHR$(1);
  7. 40  FOR I=4 TO 21:LOCATE I,1:PRINT CHR$(1);:LOCATE I,80:PRINT CHR$(1);:NEXT
  8. 50  LOCATE 22,1:PRINT CHR$(1);STRING$(78,1);CHR$(1);
  9. 60  LOCATE 5,20:PRINT "B L U E B E R R Y    P I E     M E N U         (Page 1)";
  10. 80  LOCATE 7,5:PRINT"The next page contains a menu of the programs on this disk.  This disk "
  11. 100  LOCATE 8,5:PRINT"does not have DOS or BASICA installed, nor is their room with DOS 2.0."
  12. 120  LOCATE 9,5:PRINT"To use this disk:  Use DOS to load  BASICA. Put this disk in Drive A:."
  13. 140  LOCATE 10,5:PRINT"Load and run STARTUP.BAS or STARTUP.CLR and follow prompts. The MENU will"
  14. 150  LOCATE 11,5:PRINT"come up. Programs load directly from the MENU.  Programs with the suffix"
  15. 160  LOCATE 12,5:PRINT".CLR will run in color or monochrome. Programs with the suffix .GRA use"
  16. 165  LOCATE 13,5:PRINT"the COLOR/GRAPHICS board.
  17. 170  LOCATE 15,5:PRINT"     To see MENU page 2, press < F2 >. To eliminate this Page 1 on future"
  18. 180  LOCATE 16,5:PRINT"callups of the MENU, remove WRITE PROTECT TAB. Put BLUEBERRY Pie in DRIVE"
  19. 182  LOCATE 17,5:PRINT"A: and Press  < F6 >.  When Break in 6100 appears, <ENTER> 25 GOTO 210."
  20. 184  LOCATE 18,5:PRINT"Then press < F10 >. Thereafter, only page 2 of BLUEMENU will appear."
  21. 190  LOCATE 20,28,0,14,0:PRINT"PRESS < F2 > TO CONTINUE"
  22. 192  IN$=INKEY$:IF IN$="" THEN 192
  23. 194  IF IN$=CHR$(64) THEN 210
  24. 196  IF IN$=CHR$(35) THEN 6000
  25. 200  SOUND 400,5:GOTO 192
  26. 210  FOR I=1 TO 10:KEY I,"":NEXT:KEY OFF: COLOR 7,0:LOCATE 24,25,0:PRINT"PLEASE STAND BY -- READING DATA";:GOSUB 1000:LOCATE 24,1,1,0,7:PRINT SPC(77);
  27. 220  CLS:LOCATE 3,1:PRINT CHR$(1);STRING$(78,1);CHR$(1);
  28. 230  FOR I = 4 TO 23:LOCATE I,1:PRINT CHR$(1);:LOCATE I,80:PRINT CHR$(1);:NEXT
  29. 240  LOCATE 24,1:PRINT CHR$(1);STRING$(78,1);CHR$(1);
  30. 250  LOCATE 4,20:PRINT "B L U E B E R R Y    P I E     M E N U ";
  31. 260  I=6:LOCATE I,4:PRINT AA$(1);CHR$(16);N(1):LOCATE I,23:PRINT AA$(2);CHR$(16);N(2):LOCATE I,42:PRINT AA$(3);CHR$(16);N(3):LOCATE I,61:PRINT AA$(4);CHR$(16);N(4)
  32. 270  I=7:LOCATE I,4:PRINT AA$(5);CHR$(16);N(5):LOCATE I,23:PRINT AA$(6);CHR$(16);N(6):LOCATE I,42:PRINT AA$(7);CHR$(16);N(7):LOCATE I,61:PRINT AA$(8);CHR$(16);N(8)
  33. 280  I=8:LOCATE I,4:PRINT AA$(9);CHR$(16);N(9):LOCATE I,23:PRINT AA$(10);CHR$(16);N(10):LOCATE I,42:PRINT AA$(11);CHR$(16);N(11):LOCATE I,61:PRINT AA$(12);CHR$(16);N(12)
  34. 290  I=9:LOCATE I,4:PRINT AA$(13);CHR$(16);N(13):LOCATE I,23:PRINT AA$(14);CHR$(16);N(14):LOCATE I,42:PRINT AA$(15);CHR$(16);N(15):LOCATE I,61:PRINT AA$(16);CHR$(16);N(16)
  35. 300  I=10:LOCATE I,4:PRINT AA$(17);CHR$(16);N(17):LOCATE I,23:PRINT AA$(18);CHR$(16);N(18):LOCATE I,42:PRINT AA$(19);CHR$(16);N(19):LOCATE I,61:PRINT AA$(20);CHR$(16);N(20)
  36. 310  I=11:LOCATE I,4:PRINT AA$(21);CHR$(16);N(21):LOCATE I,23:PRINT AA$(22);CHR$(16);N(22):LOCATE I,42:PRINT AA$(23);CHR$(16);N(23):LOCATE I,61:PRINT AA$(24);CHR$(16);N(24)
  37. 320  I=12:LOCATE I,4:PRINT AA$(25);CHR$(16);N(25):LOCATE I,23:PRINT AA$(26);CHR$(16);N(26):LOCATE I,42:PRINT AA$(27);CHR$(16);N(27):LOCATE I,61:PRINT AA$(28);CHR$(16);N(28)
  38. 330  I=13:LOCATE I,4:PRINT AA$(29);CHR$(16);N(29):LOCATE I,23:PRINT AA$(30);CHR$(16);N(30):LOCATE I,42:PRINT AA$(31);CHR$(16);N(31):LOCATE I,61:PRINT AA$(32);CHR$(16);N(32)
  39. 340  I=14:LOCATE I,4:PRINT AA$(33);CHR$(16);N(33):LOCATE I,23:PRINT AA$(34);CHR$(16);N(34):LOCATE I,42:PRINT AA$(35);CHR$(16);N(35):LOCATE I,61:PRINT AA$(36);CHR$(16);N(36)
  40. 350  I=15:LOCATE I,4:PRINT AA$(37);CHR$(16);N(37):LOCATE I,23:PRINT AA$(38);CHR$(16);N(38):LOCATE I,42:PRINT AA$(39);CHR$(16);N(39):LOCATE I,61:PRINT AA$(40);CHR$(16);N(40)
  41. 355  I=16:LOCATE I,4:PRINT AA$(41);CHR$(16);N(41):LOCATE I,23:PRINT AA$(42);CHR$(16);N(42):LOCATE I,42:PRINT AA$(43);CHR$(16);N(43): LOCATE I,61:PRINT AA$(44);CHR$(16);N(44)
  42. 356  I=17:LOCATE I,4:PRINT AA$(45);CHR$(16);N(45):LOCATE I,23:PRINT AA$(46);CHR$(16);N(46): LOCATE I,42:PRINT AA$(47);CHR$(16);N(47): LOCATE I,61:PRINT AA$(48);CHR$(16);N(48)
  43. 357  I=18:LOCATE I,4:PRINT AA$(49);CHR$(16);N(49):LOCATE I,23:PRINT AA$(50);CHR$(16);N(50):LOCATE I,42:PRINT AA$(51);CHR$(16);N(51): LOCATE I,61:PRINT AA$(52);CHR$(16);N(52)
  44. 358  I=19:LOCATE I,4:PRINT AA$(53);CHR$(16);N(53):LOCATE I,23:PRINT AA$(54);CHR$(16);N(54): LOCATE I,42:PRINT AA$(55);CHR$(16);N(55): LOCATE I,61:PRINT AA$(56);CHR$(16);N(56)
  45. 360  LOCATE 21,5:PRINT SPC(50);:LOCATE 20,5:PRINT SPC(50);:LOCATE 21,31:PRINT"SELECT A PROGRAM ";:LINE INPUT;PROGRAM$
  46. 370  N = VAL(PROGRAM$)
  47. 372  IF (N < 1 OR N > 56 ) THEN 360
  48. 380  ON N GOTO 2000,2010,2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150,2160,2170,2180,2190,2200,2210,2220,2230,2240,2250,2260,2270,2280,2290,2300,2310,2320,2330,2340,2350,2360,2370,2380,2390,2400,2410,2420,2430,2440
  49. 385  ON N-45 GOTO 2450,2460,2470,2480,2490,2500,2510,2520,2530,2540,2550
  50. 390  ON ERROR GOTO 0
  51. 1000  REM *******************DATA INPUT FOR MENU *****************************
  52. 1010  P = 56
  53. 1020  FOR J=1 TO P
  54. 1030  READ AA$(J),N(J)
  55. 1040  DATA "ALPHAHEX.BAS",1:     REM LN  2000
  56. 1050  DATA "BLUEBERY.BAS",2:     REM     2010
  57. 1060  DATA "BLUEBERY.DOC",3:     REM     2020
  58. 1070  DATA "BLUEBRY2.DOC",4:     REM     2030
  59. 1080  DATA "BLUEMENU.BAS",5:     REM     2040
  60. 1090  DATA "BOXINBOX.BAS",6:     REM LN  2050
  61. 1100  DATA "BOXINPUT.BAS",7:     REM     2060
  62. 1110  DATA "BUSCHECK.BAS",8:     REM     2070
  63. 1120  DATA "CALULATE.BAS",9:     REM     2080
  64. 1130  DATA "CHEKFORM.BAS",10:    REM     2090
  65. 1140  DATA "CHR$PRNT.BAS",11:    REM LN  2100
  66. 1150  DATA "CIRCLE  .GRA",12:    REM     2110
  67. 1160  DATA "COLORSEE.CLR",13:    REM     2120
  68. 1170  DATA "COMPOUND.BAS",14:    REM     2130
  69. 1180  DATA "D&CFORM .BAS",15:    REM     2140
  70. 1190  DATA "EASYWORD.BAS",16:    REM LN  2150
  71. 1200  DATA "EPSONSET.BAS",17:    REM     2160
  72. 1210  DATA "ESCKEY  .BAS",18:    REM     2170
  73. 1220  DATA "FILEDATE.BAS",19:    REM     2180
  74. 1230  DATA "GASFORM .BAS",20:    REM     2190
  75. 1240  DATA "HEADCLN .BAS",21:    REM LN  2200
  76. 1250  DATA "HEXPRINT.BAS",22:    REM     2210
  77. 1260  DATA "HEXSAY  .BAS",23:    REM     2220
  78. 1270  DATA "IBMLABEL.BAS",24:    REM     2230
  79. 1280  DATA "KEYSET  .BAS",25:    REM     2240
  80. 1290  DATA "LABELPRO.BAS",26:    REM LN  2250
  81. 1300  DATA "LPT12SET.BAS",27:    REM     2260
  82. 1310  DATA "MENUPRNT.BAS",28:    REM     2270
  83. 1320  DATA "NECLABEL.BAS",29:    REM     2280
  84. 1330  DATA "NICELIST.BAS",30:    REM     2290
  85. 1340  DATA "PC-COLOR.BAS",31:    REM LN  2300
  86. 1350  DATA "PCADD   .GRA",32:    REM     2310
  87. 1360  DATA "PEEKPRNT.BAS",33:    REM     2320
  88. 1370  DATA "PRNTCALL.BAS",34:    REM     2330
  89. 1380  DATA "PROGHEAD.BAS",35:    REM     2340
  90. 1390  DATA "QUICKBOX.CLR",36:    REM LN  2350
  91. 1400  DATA "RANDSEED.BAS",37:    REM     2360
  92. 1410  DATA "SAMPLE  .TWD",38:    REM     2370
  93. 1420  DATA "SAVINGS .BAS",39:    REM     2380
  94. 1430  DATA "SHOWBOX .BAS",40:    REM     2390
  95. 1440  DATA "SIXBOXES.BAS",41:    REM LN  2400
  96. 1450  DATA "STARTUP .BAS",42:    REM     2410
  97. 1460  DATA "STARTUP .CLR",43:    REM     2420
  98. 1461  DATA "TASKLIST.BAS",44:    REM     2430
  99. 1462  DATA "TEST2WRT.BAS",45:    REM     2440
  100. 1463  DATA "TESTWRIT.BAS",46:    REM LN  2450
  101. 1464  DATA "TESTWRIT.DOC",47:    REM     2460
  102. 1465  DATA "TIMESHOW.BAS",48:    REM     2470
  103. 1466  DATA "WEIGHTFM.BAS",49:    REM     2480
  104. 1468  DATA "WORKFILE.BAS",50:    REM     2490
  105. 1469  DATA "WORKFILE.DAT",51:    REM LN  2500
  106. 1470  DATA "YESORNO .BAS",52:    REM     2510
  107. 1471  DATA "YOURMENU.BAS",53:    REM     2520
  108. 1472  DATA "ZIPCLEAR.BAS",54:    REM     2530
  109. 1473  DATA "LISTSKIP.10P",55:    REM     2540
  110. 1474  DATA "LISTSKIP.17P",56:    REM LN  2550
  111. 1475  DATA "--------.BAS",57:    REM     2560
  112. 1476  DATA "--------.BAS",58:    REM     2570
  113. 1477  DATA "--------.BAS",59:    REM     2580
  114. 1478  DATA "--------.BAS",60:    REM     2590
  115. 1480  NEXT J
  116. 1490  RETURN
  117. 1650  GOTO 210
  118. 2000  RUN"ALPHAHEX.BAS"
  119. 2010  RUN"BLUEBERY.BAS"
  120. 2020  GOTO 2630          'BLUEBERY.DOC
  121. 2030  GOTO 2630          'BLUEBRY2.DOC
  122. 2040  RUN"BLUEMENU.BAS"
  123. 2050  RUN"BOXINBOX.BAS"
  124. 2060  RUN"BOXINPUT.BAS"
  125. 2070  RUN"BUSCHECK.BAS"
  126. 2080  RUN"CALULATE.BAS"
  127. 2090  RUN"CHEKFORM.BAS"
  128. 2100  RUN"CHR$PRNT.BAS"
  129. 2110  RUN"CIRCLE  .GRA"
  130. 2120  RUN"COLORSEE.CLR"
  131. 2130  RUN"COMPOUND.BAS"
  132. 2140  RUN"D&CFORM .BAS"
  133. 2150  RUN"EASYWORD.BAS"
  134. 2160  RUN"EPSONSET.BAS"
  135. 2170  RUN"ESCKEY  .BAS"
  136. 2180  RUN"FILEDATE.BAS"
  137. 2190  RUN"GASFORM .BAS"
  138. 2200  RUN"HEADCLN .BAS"
  139. 2210  RUN"HEXPRINT.BAS"
  140. 2220  RUN"HEXSAY  .BAS"
  141. 2230  RUN"IBMLABEL.BAS"
  142. 2240  RUN"KEYSET  .BAS"
  143. 2250  RUN"LABELPRO.BAS"
  144. 2260  RUN"LPT12SET.BAS"
  145. 2270  RUN"MENUPRNT.BAS"
  146. 2280  RUN"NECLABEL.BAS"
  147. 2290  RUN"NICELIST.BAS"
  148. 2300  RUN"PC-COLOR.BAS"
  149. 2310  RUN"PCADD   .GRA"
  150. 2320  RUN"PEEKPRNT.BAS"
  151. 2330  RUN"PRNTCALL.BAS"
  152. 2340  RUN"PROGHEAD.BAS"
  153. 2350  RUN"QUICKBOX.CLR"
  154. 2360  RUN"RANDSEED.BAS"
  155. 2370  GOTO 2610         'SAMPLE.TWD FOR USE WITH TESTWRITE.BAS/TEST2WRT.BAS
  156. 2380  RUN"SAVINGS .BAS"
  157. 2390  RUN"SHOWBOX .BAS"
  158. 2400  RUN"SIXBOXES.BAS"
  159. 2410  RUN"STARTUP .BAS"
  160. 2420  RUN"STARTUP .CLR"
  161. 2430  RUN"TASKLIST.BAS"
  162. 2440  RUN"TEST2WRT.BAS"
  163. 2450  RUN"TESTWRIT.BAS"
  164. 2460  GOTO 2630         'TESTWRITE DOCUMENTATION
  165. 2470  RUN"TIMESHOW.BAS"
  166. 2480  RUN"WEIGHTFM.BAS"
  167. 2490  RUN"WORKFILE.BAS"
  168. 2500  GOTO 2620         'WORKFILE DAT LOADED BY WORKFILE.BAS
  169. 2510  RUN"YESORNO .BAS"
  170. 2520  RUN"YOURMENU.BAS"
  171. 2530  RUN"ZIPCLEAR.BAS"
  172. 2540  RUN"LISTSKIP.10P"
  173. 2550  RUN"LISTSKIP.17P"
  174. 2560  REM
  175. 2590  GOTO 210
  176. 2600  REM **************** CUT OFF FOR NON-BASIC SELECTION *******************
  177. 2610  LOCATE 25,10:PRINT SPC(65);:LOCATE 25,10:PRINT"NOT A BASIC PROGRAM -- DATA FILE TO BE LOADED BY TESTWRIT.BAS.";:FOR I = 1 TO 3000:NEXT:GOTO 2640
  178. 2620  LOCATE 25,10:PRINT SPC(65);:LOCATE 25,10:PRINT"NOT A BASIC PROGRAM -- DATA FILE TO BE LOADED BY WORKFILE.BAS.";:FOR I = 1 TO 3000:NEXT:GOTO 2640
  179. 2630  LOCATE 25,10:PRINT SPC(65);:LOCATE 25,10:PRINT"NOT A BASIC PROGRAM -- LOAD FROM DOS WITH 'TYPE' COMMAND.";:FOR I = 1 TO 3000:NEXT:GOTO 2640
  180. 2640  LOCATE 25,10:PRINT SPC(65);:GOTO 360
  181. 6000  LOCATE,,,0,7:GOTO 6100
  182. 6100  STOP
  183. 64950  END
  184. 65000  REM **********************  SAVE   ROUTINE ****************************
  185. 65100  COLOR 7,0:SAVE"A:BLUEMENU.BAS"
  186. 65200  GOTO 10
  187.